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FT2 bugfixes. Cail output routine with explicit OPEN 
and CLOSE functions. 


38-005 RRB3005 Rowland R. Bradley 27-Apr-1984 
Properly increment the job burst tnaracter. Added the 
reference to last_entry_number. 
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. 14- ~300n 138i 95:88:85 LPRTSMB. SRCIMESSAGE .B32; 1 9 a) v04 
$ 1 600) 8 MODULE ig 2 ot AL Bog ‘Print Symbiont == message routines’ ; 
; : $008 0 ADDRESSING _MODE OC EXTERNAL = GENERAL) ; 
: 4 0004 0 3 
; 5 0005 1 BEGIN 3 
3 6 0006 1 5 
3 7 0007 1! 3 
M4 4 48 \ BPRSSSSSSSSSS ESE STEELE ETT TTT TCT TT PCC CTT CCPC SCT C SCC cece cece cece cece ccc ia sd Ps 
; te : 
3 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * F 
: 11 0011 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * : 
: \¢ Bet¢ ! :* ALL RIGHTS RESERVED. * 3 
: ! * 3 
3 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND cores * ; 
: 15 0015 1 !* ONLY IN ACCORDANCE WITH —E TER OF SUCH LICENSE AND WITH THE * ; 
; 16 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * $ 
: 17 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
; y sb ; b TRANSFERRED. * ; 
; '® * ; 
3 21 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 3 
3 22 0022 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 5 
3 $i oS? ' CORPORATION. + . 
; bed ® P \ 
3 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR latch OF ITS * 3 
: 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITA * F 
3 e7 0027 1 !* * 3 
3 28 0028 1 !* * ; 
: 29 COZ 1 eee REE EEEEEE EERE EEE a 
3 30 0030 1! | 3 3 
; 31 0031 1 5; 
; 32 0032 1 !++ Se 
; a 0033 1 ! FACILITY: 5 
ee 0034 1: Print Symbiont. Sa 
3 35 0035 1! a 
; 36 0036 1 ! ABSTRACT: : ; a 
: % st t4 ; Processes messages received from the job controller. : 
; 39 0039 1 ! ENVIRONMENT: 3 
: 40 0040 1! VAX/VMS user mode. 3 
: 41 0041 1 !-- a) 
; 42 0042 1! 3 
: 43 0043 1 ! AUTHOR: G. Robert, CREATION DATE: 31-Aug-1982 , 
s 6 0044 1! j 
: 45 0045 1 ! MODIFIED BY: 3 
; 646 0046 1 3 
g 47 0047 1 38-007 RRB3007 Rowland R. Bradle ey 20-Jul-1984 3 
; re 8 re ' Change Signal_ Stop(... PSHS. INVREQCOD) to CODEERR_. ; 
; 39 ? : 38-006 GAR 5006 Gregory R. Robert 29-Apr-1984 3 
= °. 0 ; 1 3 
; 53 8 1 : 
: 54 . ¥ 3 
: 55 0055 1 ; 
. 2 0056 1 3 
5 57 0057 1 5 
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H 8 0038 1! 38-004 GRR3004 Gregory R. Robert 23-Mar-1984 
; 9 059 1! Replace burst_character with job_burst_char and - 
: ¢' Bey : file burst char. 
; 6 006¢ 1 i 3B-003 GRR3003 Gregory R. Robert 23-Aug-1983 
: ¢ 065 1! Bugfixes, page_setup_modules, form_setup_modules, 
; @& 0064 1! sheet_feed, symbiont initiated pauSe_task and stop_stream, 
: 2 Boee : } hangup code, read and write item services 
: 67 0067 1: 38-002 GRR3002 Gregory R. Robert 03-Aug-1983 
; os Boek : Rewrite for new design. 
: 70 0070 1} 38-001 GRR3001 Gregory R. Robert 23-Jul-1983 
“fe a 0071 1! Created new module. 
- 0072 1! 
;- 0073 1! 
: 74 0074 1 !e* 
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ZSBITL ‘RECEIVE_MESSAGE_AST' 
' Functional vane, + ares 
?desc 


Formal Parameters: 
Idesc 

Implicit Inputs: 
none 


Implicit Outputs: 


ee ee ee ee 


none 
Returned Value: 
non 
Side Effects: 
! =o 
GLOBAL ROUTINE PSMSRECEIVE_MESSAGE_AST 
BEGIN 
OWN 
MSGSRY TABLE : VECTOR (8) PSECT (CODE) PRESET ( 
SMBMSG$K_PAUSE_TASK] = PAUSE_TASK, 
SMBMSG$K_RESET-STREAM) = STOP STREAM, 
SMBMSG$K_RES ASK] = RESUME TASK, 
SMBMSG$K_START_STREAM) = START_STREAM, 
SMBMSG$K_STA SK] = START-TASK, 
SMBMSGS$K_STOP_STREAM] = STOP_STREAM, 
= STOP TASK) 


LOCAL 
MSG_DESC : SDYNAMIC_DESC, 
NOTIFY STATUS , 
REQUEST ‘ 
: REF $BBLOCK, 
STREAM 


SIGNAL_IF_ERROR_ (SMBSREAD_MESSAGE (STREAM, MSG_DESC, REQUEST)); 


IF .REQUEST GEQU ZALLOCATION (MSGSRV_TABLE) / 4 
OR .MSGSRV_TABLE C.REQUEST) EQL 0 


HEN 
CODEERR_ ; 

SCB = .PSMSGL_SCBVEC [.STREAMI; 

IF .SCB EQL 0 

THEN 


S 
PSMSINITIALIZE 
PSM$GL_SCBVEC 


AX-11 Bliss-32 V4.0-742 
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| O6b ive ’mes MESSAGE_A ° 14- = 8ep- 1984 6: g¢: 86 PRTSMB.SRCIJMESSAGE .832;1 _ (33 v0 
SCBLPSMSL_STREAM_INDEX] =_.STREAM:; 
SCBEPSNSE-FILE-BORST. CHARI = XC ey 
eg PSM$B_JOB_BuRST_CHAR) = %C '9'; 


ies -REQUEST EQL SMBMSGSK_START_STREAM 


BEGIN 
ECTOR CSCBCPSM$T_C ONDITION. AREAJ,0] = 0; 
SCBLPSM SMSL_SERVICE-STATUS) =~SS$_NORMAL; 


PSMSRESET_SCB (.SCB); 


CONAUE WN OO OONOUS WHO 


If currently paused by job controller then clear pending 
if TESTBITSC (SCBCPSMSV_RESUME_WAITJ) 
SCBCPSMS$L_SERVICE_STATUS] = SS$_NORMAL; 


WNAAAAAAAIAAIDPPOPONINPIPONPYINYE 2 PP OP SO 


SCB_CPSM$L_REQUEST RESPONSE] = .REQUEST; 
PSMSUPDATE-SCB (.SCB, MSG_D €); 


NOTIFY_STATUS = NOTIFY_ALL (.SCB, .REQUEST); 

IF NOT .NOTIFY_STATUS THEN PSMSSTORE_ERRORS (SCB, .NOTIFY_STATUS); 
BLISS (.MSGSRV_TABLE C.REQUEST], .SCB); 
SS$_NORMAL | 


ONAOUS WR 


aaa anak tt at tt ts 8 es = 2 a 2 2 2s 2 2 2 tt faa) 


MMU SELLE LES 
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: IF .REQUEST EQL SMBMSGSK_START_TASK 
THEN 

| 

2 

: 
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2 
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1 


Be Se Ge Oe Se Se SH Se Oe Se Se Fe Oe Se Ge Ge Be Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se See sees tee 
Oo 


-TITLE MESSAGE Print Symbiont -- message routines 
-IDENT \V04-000\ 


.PSECT DATA,NOEXE,2 
00000 TIMER_ACTIVE: 
.BLKB 


-PSECT CODE,NOWRT,2 
00000000 00000 MSGSRV_TABLE: 


-LONG 0 3 
00000000v 00000000v 00000000v 00000000v 00000000v 00000000v 00004 ADDRESS gr ause TASK, STOP_STREAM, RESUME_TASK, 3 
00000000v 0001C arn RT STREAM, START TASK, STOP_ STREAM, : 
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~-EXTRN BASSEDIT, LBRSCLOSE 
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-EXTRN LBRSGET RECORD, LBRSINI CONTROL 


~-EXTRN LBRSLOORUP_KEY, LBRSOP 
LBRSRET_RMSSTV, LBRSSET_LOCATE 
LIBSTRIM_FILESPEC 
SGET_ OM 
STRSANALYZE 


MBSREAD_MESSAGE 
-EXTRN PSMSRESET_SCB, SMBSSEND_TO_JOBCTL 
-EXTRN PSMS$STORE ERRORS 
-EXTRN PSMSUPDATE_SCB, PSM$GL_SCBVEC 
EXT PSM$SRV 


.ENTRY PSMSRECEIVE_MESSAGE_AST, Save R2,R3,R4,R5 


SP 
MOVL #34471936, MSG_DESC 
CLRL MSG_DESC+4 


PUSHAB MSG_DESC 
STREAM 
CALLS #3, SMBSREAD_MESSAGE 
MOVL RO, STATUS 
BLBS STATUS, 1$ 
STATUS 
CALLS #1, LIBSSIGNAL 
1$: MOVL + ae? R4 
CMPL R4, # 


OC AE ian 8F 
10 «AE 
oc 
000000006 00 0 


000000006 00 


INMOITOPUN | OOOO 


A6é AF 


COOQOQoCooCoooooooococoeo 


ae ae we ewe ee ewe ew eo folojojoleloeloelelelelelq) 


2 
NSGSRV_TABLECR43 


2$: PUSHL #1 
PUSHL #17174868 
CALLS + LIBSSTOP 


01061154 F 

38: MOVL mM, R3 
MSGL_SCBVECCR3], R5 
5), SCB 


000000006 


rPviwe 
Wo 


04 A 
5 000000006004 
08 E 


nO—-9CT090 "99 —9 —-FCFO MOMIO"OOVTITIIOW 
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000000006 00 01 . PSMSALLOCATE_SCB 


wits 


; Routine Size: 


000000006 


0220 


000000006 
05 


000000006 
0000Vv 


000000006 


237 bytes, 


$2 
65 


OOo 


Routine Base: 


Print Symbiont == message routines 
RECEIVE _MESSAGE_AST 


08 ag dO 
3$ oe 
i 
ae: 
9 90 
94 D1 
0D is 
8 ar dO 0 
O28— CO D4 
9} dO 
4 01 
OA 12 
08 AE DDO 
01 FBO 
08 AE 00 8 
0B €5 
G1 DO 8 
94 00 
oc ag 9F 0 
53 DD 0 
02 FBO 
18 BB 0 
02 FBO 
50 £8 0 
30 dd 0 
OC AE 9F O 
02 FBO 
FEFE CF44 D0 0 
08 AE ODDO 
01 FBO 
01 000 
04 0 
CODE + 0020 


lojelejlelelelelelelolelolo) 


$3339 
OOoCooooooooooooooo°oo 


MmMmMmnoo 
ODOWOO 


4$: 


5$: 


6$: 


7$: 


co 
wn 


wn vo 
NSNOWS 


COODBOuw»yD 
o 
mewuD 


#1, PSMSRESET_SCB 
6, R3 


. 
| 
bad 


FY_ALL 
TATUS, 8$ 
TATUS 


#2, PSMSSTORE_ERRORS 
MSGSRV_TABLELR4J, RO 


SCB 
#1, (RO) 
#1, RO 


16( 

44 ( 

24( 

ESC 
, PSMSUPDATE_SCB 
M<R3,R4> 

Y_S 

Y7S 
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Ra 
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A 
ZSBTTL ‘KEEP_ALIVE' 
' Functional “Description: 
Idesc 
i Formal Parameters: 
' Idesc 
i Implicit Inputs: 
none 
i Implicit Outputs: 
; none 
i Returned Value: 
non | 
i Side Effects: 
none 
ROUTINE KEEP_ALIVE ( 

STARTUP 


) : NOVALUE = 
BEGIN 


PARAMETER_INDEX_ (STARTUP) ; 
LOCAL 


WANAN WAIN DIPINPINPININPININID 2 OO OO ow 


BUSY_STREAM : INITIAL (0) 


1 

1 

1 

1 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

2 

: 

r4 

5 
2 +i I FROM PSMSK_MAXSTREAMS - 1 
: BEGIN 

3 LOCAL SCB REF S$BBLOCK; 
3 SCB = ”PSMSGL_ SCBVEC C.1]; 
3 SCB NEQ 07 

3 
3 
3 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
5 
5 
5 
5 


BUS 
IF Or BSMSL héquest RESPONSE] NEQ SMBMSG$K_PAUSE_TASK 
D NOT .SCBCPSM$V_SUPPRESS_OUTPUTJ 


THEN 
a - SCBCPSMSL_KEEP_ALIVE] EQL .SCBCPSMSL_OUTPUT_QI10S] 


OO OOO O00 000909 09 09 09 09 09 09 SII NI NINN NNO AAA AAAAAOUMIINIUIV 
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BEGIN 
IF reerelt cs 
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Ww w 
SR SS Fut OOO NONE WN ODO SOU RUN ODO NOU UN OOO NAMEN OOD 3a 


(SBBLOCKCSCBCPSMS$L_DEVICE_STATUS], SMBMSG$V_STALLED]) 


THEN 

SMBSSEND_TO_JOBCTL ( 
SCBCPSMSL OSTREAM. INDEX], stream number 

0, asynchronous response 
0, no accountin 


0 no checkpoin 
SCBLPSMSL_DEVICE STATUS] device status 


| 
N 
IF .SCBCPSM$V_BUSY] 
THEN 
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END 


-EXTRN SYSSSETIMR 


QO0C 00000 KEEP_ALIVE: 
WORD e R2,R3 
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V002000 KEEP_ALIVE . 13738p-198 93:89:66 EPA TSma°sReimessAcé BS3—1 om 
: 66 1210 4 ELSE 
; a4 | 1} 4 : SCBCPSMSL_KEEP_ALIVE] = .SCBCPSM$L_OUTPUT_QI10SJ; | 
3 69 1 ig | 
: 270 1214 | 
: 271 1215 eis’ _STREAM 
: of 1519 | 
> 274 1218 SIGNAL IF ERROR. _ (SSETIMR (DAYTIM=UPLIT(=300000000,-1), ASTADR=KEEP_ALIVE)); 
: t3 1219 TIMER ACTIVE 
: 16 i 3 ELS 
: A V 
£8 $ EF IMER CTIVE = 0; | 
: 280 1324 17 END; 
00100 .BLKB 3 
FFFFFFFF EE1E5D00 00110 P.AAA: ‘LONG -300000000, -1 : 
7 Sav : 171, 
52 1F 7D 0000 mova #31 + 1182 
50 0000000060042 D0 00005 1$: MOVL §§ PSMS$GL_SCBVECCIJ, SCB + 1186) 
3D 13 00000 BEQL 6 3$ + 1187 
38 10 Ao 01 £1 0000F BBC #1, 16(SCB), 3$ + 1189 
53 01 DO 00014 MOVL #1, BUSY_STREAM - 1138 
01 0144 CO D1 00017 CMPL 324(SCB)7 #1 : 119 
2— 18 0001C BEQL © 3$ : 
29 11 AO 06 £0 OO01E BBS #6, 17(SCB), 3$ 1194 
O1E8 CO 0188 CO D1 0002 CMPL } ©=-_:«&40(SCB), 488(SCB) > 1196 
19 if 0002A BNEQ 2$ : 
1B 54 AO 04 €2 0002C¢ BBSS #4, 84(SCB), 3$ : 1200 | 
54 AO 9F 00031 PUSHAB 84(SCB) + 1207 
7E 7C 00034 CLRQ -(SP) 3 
7E 04 00036 CLRL = = (SP) : 
022c CO 9F 00038 PUSHAB 556(SCB) + 1203 
000000006 00 0S FB 0005¢ CALLS #5, SMES$SEND_TO_JOBCTL + 1207 
07 11 0004 BRB 3$ : 1196 
0188 CO 01E8 CO DO 00045 2s: MOVL  488(SCB), 440(SCB) : 1211 
B6 3 F4 b004¢ 3$: SOBGEQ I, 1$ : 1182 
26 53 £9 0004F LBC BUSY STREAM, 5$ > 1215 
7E D4 00052 CLRL (SPT > 1218 | 
A =soAFsO9F: (00054 PUSHAB KEEP_ALIVE : 
9E AF 9F 00057 PUSHAB P.AAA ; 
7E 04 0005A LRL Ss =< SP) ; | 
000000006 00 04 FB 005¢ CALLS #4, SYSSSETIMR ; 
52 50 D0 006 OVL RO, STATUS ; 
09 25 E8 00066 LBS STATUS, 4$ 3 
52 DD 00069 PUSHL STATUS F 
000000006 00 1 FB 00068 CALLS #1, LIBSSIGNAL | 
0000° CF 1 B BOS 4$: MOVW #1, TIMER_ACTIVE : 1219 
4 0007 RET : 1213 | 
0000' CF B4 00078 5$ CLRW  TIMER_ACTIVE > 1222 | 
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10 
mE SAGE Print Pa +7 pee “= message routines 16-Sep-1984 08:20:88 AX-11 Bliss-32 V4.0-742 
4-000 NOTIFY_ 14-Sep-1984 12:55:09 PRTSMB.SRCJMESSAGE .B32;1 
; 28 1225 1 SSBTTL 'NOTIFY_ALL' 
; a 1226 1! Functional Description: 
3 84 1227 1! desc 
; 285 1228 1! 
; 286 3 9 1! Formal Parameters: 
3; 287 1230 1! ?desc 
: see \§ 1 : Implicit Inputs: 
; 290 1538 7 3 
,; 62} 1234 1 ! Implicit Outputs: 
: 292 ives oY none 
: 293 1536 1! 
3 294 1237 1 ! Returned Value: 
s 295 1238 1! non 
: 296 icon 2. 
: 297 1240 1! Side Effects: 
; 298 1241 1! non 
; ay iste 1 !<- 
; 300 1243 1 ROUTINE NOTIFY_ALL ( 
; 301 1244 1 : REF $BBLOCK, 
: 302 1245 1 REQUEST 
3; 3s 1246 1 = 
: 304 1247 2 BEGIN 
: 305 1248 2 ; 
: 306 1249 2 ! Generate a table that converts SMBMSG$ request codes to their 
; 2or 1250 2 ! corresponding PSM$K_FUNC codes 
s 308 1251 2: 
; 309 1252 2 OWN 
; 310 1253 2 REQFUN_TABLE : VECTOR [8] PSECT (CODE) PRESET ( 
sg. S13 1254 2 {OJ = 
s S12 1255 2 CSMBMSG$K_PAUSE_TASK] =P SMSK _PAUSE_TASK, 
s $15 1256 2 CSMBMSG$K_RESET_ STREAM) = PSM$K_STOP STREAM 
3 «6314 1257 2 CSMBMSG$K_RESUME_ TASK) = PSM$K_RESUME TASK, 
s 515 1258 2 CSMBMSG$K_START STREAM) = PSMSK_START STREAM, 
; 316 1259 2 CSMBMSG$K_START_TASK] = PSMS$K~ “START_ TASK 
. Sie 1260 2 CSMBMSG$K_STOP_ STREAM] = PSM$K~ _STOP_ STREAM, 
s 318 1261 2 CSMBMSG$K_ STOP— TASK] = PSM$K_ STOP TASK) 
; #319 1262 2 § 
: 320 1263 2 
s Sei 1264 2 LOCAL SERVICE_STATUS : INITIAL (SS$_NORMAL); 
s 3ee > 3265 2 
s Ses 1266 2 INCRU I TO PSMSK_MAX =- 1 
> 324 1267 2 DO 
s See 1268 3 BEGIN 
} $59 169? : BIND SERVICE = PSMS$SRVC.I, 0,0,0,0] : S$BBLOCK; 
s 328 1271 3 IF .SERVICECSRV_A_SERVICE] NEQ 0 
3 4 1576 3 
; 330 1273 3 SERVICE_STATUS = BLISS ( ‘ 
; 331 1274 3 . SERVICELSRV_ A_SERVICE], ' = all services 
s 332 1275 3 C ' = SCB address by reference 
s 355 1276 3 SCBCPSM$R_USER_CONTEXT AREA], ' © user context area 
: «334 1277 3 REQFUN_TABLEC REQUEST]; ! = request ==> function 
s 335 1278 3 0, ' = <not used> 
s 356 1279 3 0 ' = <not used> 
, Sor 1280 ; ); 
; «4338 1281 


—_——___--—-—___—_- 


—— 


wre ~w ww ' —_ —" www | 
| ay Owosso 
wo 
| => Ree ee eere terete eerere te tere *. es *erererertearters | 
a 
NC M—OO— Ld oMmm cre oO o 
nw soo or- ~ ~-n~—m 30 Oo co 
~~ mceccr N nm CC N ™N 
erecece - ore Ke - - 


Nite 
ae ~ oO 
nny _— 2 
'‘@ _ 
Oo - . a 
ew 2 2 
wo - w 
>< a 
w" . ' 
Nw so A 
mu - = 
‘= wn 
wn . wn “era. Oo 
nv w —_ poe SS a 
—ax - -— (A _— 
~ .- ¢ oa. ese ~ 
@s: . i cn Kenn wn” 
@ og ” u~ “n>D>D> > 
-= _— ' ws ee a po 
Wn wi Lon! ow wt oO <= 
i . mu on em «= Vvrre _ - 
<a co cn Oce <q@ Leh 2h 4) ow wn 
<a - > cw eYv a> 1 it OR ‘ 
>w Na >. —- MW —eww oa ws 
. aww a+ nm2Z Swow Tre NW w& 
N na Nn AWD es Yee ~yu NUN 
- Co “fa anducd >> _— z= > 
>. Zn NMOON@ «+ wae ms ae 
ro . a—- TOY RAH WW OMOWWRAe Aw 
NO » © OB BOBN 1 SCeBMHBVlCYNMM BB Be YH 
own 
aw 2 pan - | 
oo ee “. @--o a <qImMmaiwn a jw pe 
oun wuz ee ee be ee ee ee ee ee le ee ee - 
| o- 4 =! IO —“O>F>eiv>roet>Mav yr OaAwmwn seaw>e 
} « oOwou 1a3OIMDOW YODA D_IOVEZS2D7DaI Sz Ow i 
| ww Ls 4 “ae 4 *BeCOA SOVTA eOAVEOMVOMA0AY Vasa | 
ooo uw be <t | 
Cone w ' i 
cc a = oe | 
‘8 i] po mo i 
aa ww om _ i 
oeww oa — o- | 
nn 2 w oO a ory a) PP } 
ae w « 2 - N a) ~~ j 
vos = 
oe se wna Oo SO HK annrro-<aomwoou rn WwoMmne 
a oo @® OG OOOO 6 NIN NIM MIMI MIP ST ST TUN 
| ou -—- -— S SOCOCOCCOCOCOOCOCCOOCOCOOOCOSOCOoOoOOoOOoO 
o2 oo oOo (oe eleleleleleleleleleleleleleleleleloelelelelololo) 
—2 Y SFDLOMvOuKu DOS-—WOOO0-@OOoyr 
>< o mw oOo BOahkCOxm—f- OOVCu OWOo-O0u0Oo- a0 
} wa oOo - Oo 
i 4 o Oo oO co 
| zea = © H—NVTOWVWVOL OMOMM ee — we CUCUCUCUM @ 
| we oo QONOIA KK fT DIONNNOOCDBOMMNAN =- 
j zm o Oo o “ oO 
i -a oOo Oo Oo < 
| oe © oO + 
j w wu oOo ouOorw wT 
| C1 2od oO omao wn w 
| c ew ve = So N - a 
| - <= on Oo oO - oO 
! ca -w o Oo o o o we 
| S “nna o Oo Oo oO Oo 
| °o -— o Oo Oo oO _ 
| ce wet o oOo Oo Oo Oo ee 
| vr oS © a 
| a —ws oe © ma N So VV eMuuw ea 2 @& " 
a > 1 wn wv Ww <= ONn-oO oer wn © 
| eo aw w @ 
| " mw —_ N 
| n Ye ee - wo o a 
av > <= Oo w Oo o c 
Ee [> 4 - Oo Oo o oS = 
—w ” oO oO oS Aad 
4 ow t oO oO oO > 
t za “=> w oO o o °o 
a wv Oo o Oo [: 4 
7 wee 2 oO So 
c ——_— ww > Oo Oo 
°o = “. w 
- w a oO oOo ws 
yo ee | ” az oO nw n~ . 
eu . mw Oo a) 
~— oO a 
i Ww 8 POM cuUCUCUNRM oO ~ 
| > oO ~ 
| wwe Oo 2 
| Cc VMTN OR. COO 
“et  adc0000000000000 oa 
t-O cucucucucucucucy [- °] 
at 3cccQ5c9eeecen— Ss 
| oO a : 
Oo a | 
| oO N 
oO - 
| oO ” 
; 
| ae 
o c 
| BS awoenunsuno So oe 
| _ ww 
<9 Moyvessss So > 
wi MMMMMmnrnm o o 
Vis oO < 
wo oO 
z> FPO tere rererere oO . 


q 


MESSAG 
v04-00 


™ 
Ooo 


MOO ONAOULSWN—O 


363 


WWAWNNNWNWw 
SN NN NNO 
NOUSWN—OOON 


: Routine Size: 


_—— 


kk kd kd dd dd 2? 
WWAIWWNINAWANAWAANANAAANNWNIWNPopororornononornonora 


0228 


$s 
Re 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 i 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
1 


+ + ate “= message routines 19 see: 


ZSBITL ‘PAUSE_TASK' 

' Functional Bescription: 
desc 
i Formal Parameters: 
2 ?desc 
i Implicit Inputs: 
none 
i 

i 

i 

i 

i 

i 

i 


Implicit Outputs: 
none 

Returned Value: 
non 


Side Effects: 
non 


ROUTINE PAUSE_TASK ( 
SCB : ~ 4 Be sag 


BEGIN 

REQUEST_FLAG_ (PAUSE_COMPLETE) = 1; 
SCBCPSMS$L_STOP_PAGE] = .SCBCPSMS$L_PAGE] + 1; 
PSMSFUNCTION_DISPATCH (.SCB); 

END; 


“1984 02:20:24 VANeI1 Bl iss=32 v4.0-742 


0000 00000 Pee nO 


50 04 
0140 CO 
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000000006 00 
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29 bytes, Routine Base: CODE + 0211 


PRTSMB.SRC JMESSAGE .B32;1 


Save oe 


age *320(R0) 
* 152tR0), 552(RO) 


RO 
#1, PSMSFUNCTION_DISPATCH 


MESSAG Print Syren “= message routines 16-Sep-1984 0g: 20:38 eg Blis 
v04-00 RESUME _TA 14-Sep-1984 12:55:09 PRTSMB.SRC 
; 379 1320 1 ZSBITL "RESUME_TASK' 

5 80 1321 1°! Functional Description: 

; 381 1 ¢ 1 i desc 

; 38 1323 1 

: 8 1 $e 1 | Formal Parameters: 

3 84 1325 1! desc 

; 385 1326 1! Implicit Inputs: 

: 386 + ae none 

; 387 1328 1! 

: eee 1329 1: Implicit Outputs: 

: 89 1330 1: none 

: 390 13 a9 

3. CUS) 1 3 1 | Returned Value: 

3 4 1335 1! non 

; 1334 1! ; 

> 394 1335 1 | Side Effects: 

s 395 1336 1! non 

:; 396 1337 1 !e- 

; 397 1338 1 ROUTINE RESUME _TASK 

; 398 1339 1 ScB : her Ry ae 

; 399 1340 1 ) : ALUE = 

; 400 1341 2 BEGIN 

; 401 1342 2 

; 402 1343 2 LOCAL 

; 403 1344 2 TARGET : SIGNED 

: 404 1345 2 ; 

: 405 1346 2 

: 406 1347 2 ! First compute the start page 

s 607 1348 2! 

; 408 1349 2 

; 409 1350 2 ! Assume the current page 

: 410 1351 2! 

: 411 1352 2 TARGET = .SCBCPSM$L_PAGE); 

: 412 1353 2 

3 413 1354 2 

; ar 1338 é START /QUEUE /TOP_OF_FORM 

; 416 1357 2 if TESTBITSC (REQUEST_FLAG_ (TOP_OF_FILE)) THEN TARGET = 1; 
: 417 1358 2 

; 418 1359 2 

3 rth 1360 2 START /QUEUE /FORWARD=pages or /BACKWARD=pages 
; *s} 1308 $ if TESTBITSC (CITEM_PRESENT_ (RELATIVE_PAGE)) 

: 423 1364 : TARGET = .TARGET + .SCBLPSMSL_RELATIVE_PAGE]; 
: 424 1365 2 

3; 425 1366 2 

; $38 1362 2 Range check -- PRINT /PAGES=(first, last) 

: 428 1369 if girs | LSSU 1 THEN TARGET = 

; 429 1370 IF . TARGET LSSU .SCBCPSMSL FIRST "bacel THEN TARGET = .SCBCPSMSL_FIRST_PAGE]; 
3 $30 137) Nein PRESENT_ (LAST_PA GE) 

; $36 1378 IF . TARGET GTRU .SCBCPSMSL_LAST_PAGE] THEN TARGET = .SCBCPSM$i_LAST_PAGE); 
1 434 1375 ; SCBLPSMSL_START_PAGE] = .TARGET; 

: 435 1376 
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mbiont == message routines 


TASK 


Print S$ 
RESUME _ 


| MESSAGE 
VO4=000 


§ PSMSFUNCTION_DISPATCH (.SCB); 


1 END; 
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79 bytes, 


; Routine Size: 


10 
M pSAGE Print Syabiont “= message routines 18. “Sep 0° 138% Og: g0: $6 AX-11 Bliss-32 V4.0-742 
v04-00 START_STREAM 14-Sep-19 PRTSMB.SRC JMESSAGE .B32;1 
; 440 1380 1 ZSBTTL ‘START_STREAM' 
: 641 1381 1°! Functional Bescription: 
: 44 1 8 1! ?desc 
7 «44 13835 1! 
: 644 1384 1°! Formal Parameters: 
; 4465 1385 1! desc 
: 446 1 56 1 ! Implicit Inputs: 
: 447 1387 1! none 
; 448 1388 #1! 
; 449 1389 1 ! Implicit Outputs: 
; 450 1390 1! none 
3; 451 139) 1! 
$ $26 1 35 1 ! Returned Value: 
: 45 13935 1! non 
: 454 we 2 ls: 
; 455 1395 1! Side Effects: 
; 456 1396 1! non 
3; 457 1397 1 ie. 
; 458 1398 #1 ROUTINE START aah ~ 
3; 459 1399 1 ScB ae SBBLOCK 
; 460 1400 1 VALUE = 
3; 461 1401 2 BEGIN 
: re | 1408 § 
s 6 140 BIND OUTPUT = PSMSSRV CPSM$K_OUTPUT,0,0,0,0] : $BBLOCK; 
; 464 1404 2 
; 465 1405 2 LOCAL 
> 466 1406 2 STATUS_1 
; 467 1407 2 , 
: 468 1408 2 
: 469 1409 2 SCBCPSM$V_ACTIVE) = 1; ' Mark queue started 
: 470 1410 § 
; 471 1411 STATUS _1 SS ( 
: 472 sie 2 USOTPUTESRY -A_SERVICE), ! © output service 
3; 673 141 2 CB ! « SCB address by reference 
3; 474 1414 2 SCBCPSMSR USER_CONTEXT_AREA], ' - user context area 
; 475 1415 2 UPLIT (PSAS$K_ OPEN), ! = OPEN function 
> 476 1416 2 SCBLPSNSO. DEVICE_NAME), ! = Device name 
: 477 1417 2 SCBCPSMSL_ DEVICE ~TATUS) ! = Device status 
: 478 1418 2 ; 
: 479 1419 2 
3 rey} 1639 ; IF NOT .STATUS_1 THEN PSMSSTORE_ERRORS (SCB, .STATUS_1); 
; 48 1656 SMBSSEND_TO goecre 
: 48 142 § SC ies eT REAM. 1 NDEX], ' = stream number 
: 684 1424 sce PeMSL “REQUEST. RESPONSE], l- responding OO ses 
; 485 1425 2 ' = no accountin 
: 486 1426 2 6° ! = no checkpoin 
> 487 1427 SCBCPSMSL_DEVICE_STATUS) i = device status 
: 488 1428 SCBLPSM$T~CONDITION_AREAI i - errors, if any 
: 489 rs 3 ); 
; 490 1430 
: 491 1431 1 END; 
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MESSAG Print Symbiont -- message routines 1}. $ep-1984 02:20:24 AX-11 Bliss-32 V4.0-742 P 18 
yO2 080 START _ TASK ° en 8een18Re 98:88:85 | aN ret hes aee ee tse, 39° 69) 
493 SBTTL ‘START_TASK' 
494 Functional Bescription: 
$32 ?desc 


Formal sommes 
sc 
Implicit Inputs: 


Implicit eaten 
ne 


Returned aon” 


eee ee ee et” ee? | 


Side Effects: 


ROUT INE prone TASK ( 
$cB : -M Bry OCK 


BEGIN 
BIND 


PFLAGS = SCBCPSM$L_PRINT CONTROL] BLOCK, 
SERVICE = PSM$SRVLPSMSK_MAIN_INPUT, 0,0, 0, of : S$SBBLOCK 


S 

a 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

2 

2 

g | 

3 
; | 

§ SCBCPSM$V_BUSY] = 

g IF NOT .TIMER_ACTIVE 

HEN | 

2 KEEP_ALIVE (); 

: Advance the job sequence character if a new or restarted job 

. 


iF (.SCBCPSMSL_ENTRY_NUMBER] NEQU .SCBCPSMSL _LAST_ENTRY_NUMBER]) | 
a REQUEST -FLAG_ (RESTARTING) 
| 
| 


WAIN RINININNNNNDN 2 2 2 2 2 OS SS SH COO ODOCOOCOO oO 


ww 
QS 


C8 BCPSMSL LAST_ENTRY_ NUMBER] = rt ame -ENTRY_NUMBER); 
INCREMENT. (SCBCPSM$B_JOB_BURST_C i 
IF_ .SCBCPSM$B_JOB_BURST_CAAR] GTRU zc *9° 


THEN 
cup; SCOLPSMSB_JOB_BURST_CHAR] = XC 0°; 


Ww 
uw 


! Always advance the file sequence character 


INCREMENT (SCBCPSM$B_FILE BURST CHARI) ; 
 SCBLPSASB_ FILE_BURST_CRAR] GTRU XC ‘2° 


EN CBCPSMSB_FILE_BURST_CHAR] = 2C ‘A’; 


COA UNE WI -2 0 OO NOU EWN 0 OD NAME WN O ODNOAU EWN OC ODNOU EWR OOONOULSWN WI 
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Routine Base: 


; Routine Size: 


10$: 


11$: 


12$: 


138: 
14$: 
15$: 
168: 


ween 198s 93:80:85 YANG LL OL isg532 8205762 


#2, 292(R2) 
564(R2) 

#1, SYS$GETTIM 
RO, STATUS 

S, 6$ 


#PSM$_NOFILEID 
ue PSMSSTORE_ERRORS 
§(R2) 
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#1, PSMSFUNCTION_DISPATCH 
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SSAG Print Symbiont -- message routines 6-Sep- 4 AX-11 Bliss-32 V4.0-742 Page 21 
v04-00: STOP “STREAM ° toSep- 138 6: ¢2: 8 PRTSMB.SRCJMESSAGE.B32;1 . 8) 
; $79 1317 1 ZSBTTL ‘STOP_STREAM' 
; 580 1518 1 ! Functional “Description: 
s 38) 1519 1! desc 
3 286 1520 1! 

3; 38 1521 1 ! Formal Parameters: 

: Re 1856 1 | implicit Inputes”” 

: ' Implic nputs: 

; 586 1824 1! none 

3 387 oer 1 3 : 
; 588 1526 1 ! implicit Outputs: 
; 589 1827 1! none 
; 590 1528 1! 
s $91 1529 1 ! Returned Value: 

3 236 1530 1! non 

; 133) 1! 

> 594 15 ¢ 1 ! Side Effects: 

s 595 T2553 t non | 
; 596 1534 1 !<- 

; 597 1535 1 ROUTINE STOP_STREAM ( | 
; 598 1536 1 ScB : REF Bo are 

; 599 1537 1 : NOVALUE = | 
; 600 1538 2 BEGIN 
; 601 1539 2 
3 one 9 § BIND OUTPUT = PSMS$SRV CPSM$K_OUTPUT,0,0,0,0] : $BBLOCK; 

3 604 1348 2 LOCAL 

: 605 1543 2 STATUS_1 " 
3; 606 1544 2 STATUS “2 
; 607 1545 2 ; 
: 608 1546 2 

3; 609 1547 2 
; 610 1548 2 PSMSSTORE_ERRORS (SCB, .SCBCPSM$L_STOP_CONDITION]); 

s 611 1549 2 SCBCPSM MSV_R RESET] = 1; 

3; 612 1550 2 SCBCPSM$V_EOF) = 1; 

3 613 1551 2 

: 614 1552 2 STATUS_1 = BLISS ( 

: 615 1553 2 VOOTPUTESRV. A_SERVICE], ! = output service 

; 616 1554 2 ! = SCB address by reference 
: 617 1555 2 SCBCPSMSR_USER CONTEXT AREA], i = user context area 
; 618 1556 2 UPLIT (PSASK_CANCE ' = CANCEL function 
3; 619 1557 2 0, ! = <not used> 
; 620 1558 2 0 ! = <not used> 

: 621 1559 ); 

3 ose 1560 

3 o¢7 1203 IF NOT .STATUS_1 THEN PSMS$STORE_ERRORS (SCB, .STATUS_1); 
: 625 1303 § STATUS 2 ett 

3: 626 1564 OUTPUT SRV ma SERVICE). ' © output service 
: 627 1565 2 $(B ' = S$CB address by reference | 
; 628 1566 SCBCPSMSR_USER couText AREA], ! © user context area 

: 663 1567 UPLIT (PSAS$K _CCOSE ' = CLOSE function 

; 630 1568 0, ! = <not used> 

3; 631 1298 0 ' = <not used> 

: O35 1570 ); 

3; 63 1571 
3 ot 1326 IF NOT .STATUS_2 THEN PSMSSTORE_ERRORS (SCB, .STATUS_2); 
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SSAG Print Symbiont <= message routines 16-Sep-1984 AX-11 Bliss-32 V4.0-742 Page 22) 
002000 STOP. STR 9 14- ~8ep-1984 5: 80: 3 PRTSMB. SRCJMESSAGE .B32; 1 . 165, 
1574 2 SCBLPSMSV_ACTIVE = 0; ! Mark queue stopped | 
26 PSMSFUNCTION_DISPATCH (.SCB); 
1578 1 END; 
003E3 .BLKB 1 
00000001 O03E4 P.AAC: <LONG 1 ; 
00000002 O03E8 P.AAD: .LONG 2 : 
000C 00000 STOP_STREAM: | 
-WORD Save R2,R3 : 1535 
53 000000006 00 9€ 00002 MOVAB OUTPUT, R : 
52 000000006 00 9€ 00009 MOVAB PSMSSTORE “ERRORS, R2 ; 
50 04 AC 00 00010 MOVL + 1548 
0158 CO DD 00014 PUSHL See tats : 
04 AC 9F 00018 PUSHAB 5(B ; 
62 02 FB 0001B CALLS #2, PSMS$STORE_ERRORS ; 
50 04 AC dO OO01E MOVL CB, R + 1549 
10 AO 0404 8F AB 00022 BISW2 #1028, 16(RO) : 
51 63 D0 00028 VL. OUTPUT, > 1553 
7E 7C 90028 LRO —s_ = (SP) > 1555 
C8 AF OF 0002D PUSHAB  P.AAC : 1556 
0200 CO 9F 00030 PUSHAB 720(RO) : 1555 
04 AC 9F 00034 PUSHAB SC : 1552 
61 05 FB 00037 CALLS #5, (R1 : 1555 
08 50 £8 OO03A LBS  STATUS_1, 1$ : 1561 
50 DD 00030 PUSHL STATUS ; 
04 AC 9F 0003F PUSHAB 5SCB : 
62 0¢ FB 00042 CALLS #2, PSMSSTORE_ERRORS : 
50 63 DO 00045 1$: MOVL OUTPUT, RO + 1564 
7E 7C 00048 CLRQ = =(SP) : 1566 
AF AF 9F O004A PUSHAB P.AAD : 1567 
7E 04 AC 000002D0 8F C1 0004D ADDL3 #720, SCB, -(SP) : 1566 
04 AC 9F 00056 PUSHAB : 1563 
60 05 FB 00059 CALLS #5, (RO) : 1566 
08 50 €8 0005C BLBS § STATUS_2, 2$ : 1572 
50 DD 0005F PUSHL STATUS@2 : 
04 AC 9F 00061 PUSHAB 5SCB ; 
62 02 FB 90064 CALLS #2, PSMS$STORE_ERRORS : 
5 04 AC DO 00067 2s: MOVL SCB, RO > 1574 | 
0c AO O01 BA 00068 BICB2 #1, 12(RO) : 
50 DD O006F PUSHL R : 1576 
000000006 00 01 FB 00071 CALLS #1, PSMSFUNCTION_DISPATCH : 
04 00078 RET : 1578 


; Routine Size: 121 bytes, Routine Base: CODE + O3EC 
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ZSBTTL ‘STOP_TASK’ 

} Functional~ pongo 
i j 
; Formal Parameters: 


! esc 
Implicit rr 
non 


! Implicit a, 


' 
' 
Returned nag 
i 
' 


PACA OOOO 
OOONOUS wh 


Ss 
A 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 i 
1 ROUTINE STOP_TASK ( 
1 $cB : REF $BBLOCK 
1 : NOVALUE = 
§ BEGIN 
2 BIND OUTPUT = PSMSSRV CPSM$K_OUTPUT,0,0,0,0] : $BBLOCK; 
3 LOCAL 

STATUS_1 
2 ; 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
1 


PSMSSTORE_ERRORS (.SCB, .SCBCPSM$L_STOP_CONDITION]); 
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i Side Effects: 
: none 
| 
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1 STATUS_1 = BLISS ( 
1 -OUTPUTCSRV_ A_SERVICE], ! - output service 
1 ' = SCB address by reference 
1 SCBCPSM$SR_USER_CONTEXT_AREAJ, i + user context area 
1 UPLIT (PSM$K_CANCEL), i © CANCEL function 
1 0, ! « <not used> 
1 0 ! = <not used> 
: F 
| IF NOT .STATUS_1 THEN PSMSSTORE_ERRORS (SCB, .STATUS_1); 
2 PSMSFUNCTION_DISPATCH (.SCB); 
$ END; | 
00465 .BLKB 3 
00000001 00468 P.AAE: .LONG 1 : 
| 
000C 00000 STOP_TASK: 
.WORD Save ; 1597 | 
53 000000006 00 9€ 00002 MOVAB = PSM$ SsTOAe. “ERRORS, R3 ; 
52 04 AC dO 00009 MOVL _—SCB, : 1608 
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; Routine Size: 66 bytes, Routine Base: CODE + 046C 


B11 
routines 16-Sep-1984 02:20:24 AX=-11 Bliss-32 V4.0-742 Page 24. 
12-Sep-1984 05:90:65 PRTSMB.SRCJMESSAGE.B32;1 9 at) 
0158 ¢2 DD 0000D PUSHL  344(R2) ; | : 
52 DD 0014 PUSHL : : : 
6 FB 0001 CALLS #2, PSMS$STORE_ERRORS : ; 
000000006 D0 0016 OVL. oUufPUT, RO + 1611 F 
7E 7C 90010 LRO = = (SP) + 1613 : 
DA AF OF OOOTF PUSHAB P.AAE t 1614. ; 
0200 C2 9F 00022 PUSHAB 720(R2) + 1613. : 
04 AC 9F 00026 PUSHAB SCB + 1610 ; 
03 FB 00 9 CALLS #5, (RO) + 1613 ; 
0 £8 0002C BLBS  STATUS_1, 1$ + 1619 ; 
50 DD 0002F PUSHL STATUS : ; 
04 AC OF 000 1 PUSHAB CB : : 
02 FB 00034 CALLS #2, PSM$STCRE_ERRORS ‘ : F 
04 AC DD 00037 1$ PUSHL $ + 1621 ; 
01 FB OOO3A CALLS #1, PSMSFUNCTION_DISPATCH : ; 
04 00041 RET + 1623) ; 
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-EXTRN LIBSSIGNAL, LIBSSTOP 
PSECT SUMMARY 


Name Bytes Attributes 


DATA OVEC, WRT, RD ,NOEXE,NOSHR, LC 
CODE 119 NOVEC. NOWRT, RD, EXE,NOSHR, LC 
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Library Statistics 


oil, lo) ose en oe tee eS apes yp Syabols -<------ Pages Processing 
File Total Loaded Percent Mapped Time 


~$255$DUA28: CSYSLIBILIB.L32;1 18619 74 0 1000 00:01.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:MESSAGE/OBJ=OBJ$:MESSAGE MSRC$:MESSAGE/UPDATE=(ENHS$: MESSAGE) 


Size: 1097 code + 103 data bytes 
Run Time: : 
Elapsed Time: 01 :07. 6 

Lines/CPU Min: 3572 

Lexemes/CPU-Min: 29080 

oe | Used: 225 pages 

Compilation Complete 
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